home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5540.txt < prev    next >
Text File  |  1994-03-01  |  615b  |  18 lines
  1. 5 ONERRORGOTO500
  2. 10 MODE8:DIM:ERASEa:DIMa(1):c$=CHR$(5):x=0:y=0:a=0:m$="XY"
  3. 20 CLS:PRINT"(X,Y) - (x,y),angle(é)";
  4. 30 s$="x":z=x:GOSUB100:x=z
  5. 40 s$="y":z=y:GOSUB100:y=z
  6. 50 s$="é":z=a:GOSUB100:a=z
  7. 60 a(0)=x*COSa-y*SINa:a(1)=x*SINa+y*COSa:LOCATE0,1
  8. 70 FORi=0 TO1:PRINTc$;MID$(m$,i+1,1);" =";a(i);
  9. 75 w=ASC(INPUT$(1,@)):IFw=13 THEN90
  10. 80 IFw=30 ANDi>0 THENi=i-2:GOTO90
  11. 82 IFw=31 ANDi<1 THEN90
  12. 88 GOTO75
  13. 90 NEXT:GOTO30
  14. 100 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:RETURN
  15. 500 IFERR=1 THENCLS:ONERRORGOTO0
  16. 510 IFERL=100 THENRESUME100
  17. 520 LOCATE0,1:PRINTc$;"not found";:w$=INPUT$(1,@):RESUME20
  18.